Group 29: Helena Møller (s204585), Emma Christiansen (s204543), Casper Harreby (s204558), Frederik Holmstrup (s203540), and Laura Christiansen (s204582)
# 03_augment.qmd
# Adding the different treatment groups
data_clean_trtgroups <- data_clean_hepgroups |>
mutate("data_group" = case_when(
(RXASP == "Y" & RXHEP == "L") ~ "Asp-Hep(low)",
(RXASP == "Y" & RXHEP == "M") ~ "Asp-Hep(med)",
(RXASP == "Y" & RXHEP == "N") ~ "Asp-Hep(No)",
(RXASP == "N" & RXHEP == "L") ~ "Asp(No)-Hep(low)",
(RXASP == "N" & RXHEP == "M") ~ "Asp(No)-Hep(med)",
(RXASP == "N" & RXHEP == "N") ~ "Asp(No)-Hep(No)"
))R for Bio Data Science